; Music of Hawk Storm (1990) (Players) (Sonic Graffiti)
; Ripped by Megachur the 11/11/2006

	write "HAWKSTOR.BIN"

music_date_rip	equ &0bb6
music_adr	equ &4000
first_theme	equ 0	; 0 -> 4
last_theme	equ 4

	read "music_header_v1_0.asm"

	jp l4ee3        ; init music
	jp l4fce        ; play music
.l4006
	db #00
.music_end
.l4007
	db #01
.l4008
	db #00,#0f,#0a,#00,#ff,#0d,#03
	db #00,#ff,#00,#02,#03,#00,#01,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#42
	db #00,#00,#00,#00,#00,#0f,#0a,#00
	db #ff,#0c,#0a,#02,#ff,#ff,#00,#00
	db #00,#03,#05,#08,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#42,#00,#00,#00,#00,#00
	db #0f,#0a,#00,#fe,#0c,#03,#00,#ff
	db #ff,#00,#00,#00,#03,#05,#08,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#42,#00,#00
	db #00,#00,#00,#0f,#0f,#00,#fe,#0d
	db #00,#00,#fe,#ff,#00,#00,#05,#07
	db #20,#18,#10,#08,#00,#08,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #d0,#00,#00,#00,#00,#00,#0f,#0f
	db #00,#ff,#0d,#0a,#04,#ff,#ff,#00
	db #00,#00,#ff,#1e,#14,#0a,#00,#1e
	db #19,#14,#0a,#10,#0e,#0c,#0a,#08
	db #06,#04,#02,#d2,#00,#00,#00,#00
	db #00,#0f,#0a,#00,#ff,#0c,#c8,#14
	db #ff,#03,#01,#03,#00,#01,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#42,#00
	db #00,#00,#00,#00,#0f,#0f,#00,#fe
	db #0d,#00,#00,#fe,#ff,#00,#00,#00
	db #04,#30,#18,#14,#2c,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#d2,#00,#00,#00,#00,#00,#0f
	db #08,#01,#ff,#0c,#06,#03,#ff,#02
	db #01,#03,#02,#03,#18,#0c,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#42,#00,#00,#00
	db #00,#00,#0f,#0a,#00,#ff,#0c,#0a
	db #02,#ff,#ff,#00,#00,#00,#03,#04
	db #09,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#42
	db #00,#00,#00,#00,#00,#0f,#0a,#00
	db #fe,#0c,#03,#00,#ff,#ff,#00,#00
	db #00,#03,#03,#07,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#42,#00,#00,#00,#00,#00
	db #0f,#0a,#00,#ff,#0c,#c8,#14,#ff
	db #03,#01,#03,#00,#01,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#42,#00,#00
	db #00,#00,#00,#0f,#0a,#00,#ff,#0c
	db #b4,#06,#ff,#03,#01,#03,#00,#06
	db #00,#02,#04,#06,#04,#02,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #42,#00,#00,#00,#00,#00,#0f,#08
	db #00,#00,#0f,#00,#00,#fc,#ff,#00
	db #00,#0d,#0c,#32,#0e,#0a,#08,#07
	db #06,#05,#04,#03,#02,#01,#00,#00
	db #00,#00,#00,#42,#00,#00,#00,#00
	db #00,#0f,#08,#00,#ff,#0e,#00,#00
	db #fb,#ff,#00,#00,#00,#04,#30,#18
	db #14,#30,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#42,#00
	db #00,#00,#00,#00,#0f,#0a,#00,#ff
	db #0c,#c8,#14,#ff,#03,#01,#03,#00
	db #06,#05,#05,#08,#08,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#42,#00,#00,#00,#00,#00,#0f
	db #0a,#00,#ff,#0d,#03,#04,#ff,#ff
	db #00,#00,#00,#03,#04,#07,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#42,#00,#00,#00
	db #00,#00,#0f,#08,#00,#fe,#0a,#05
	db #03,#ff,#07,#01,#06,#00,#01,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#42
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #0f,#08,#00,#fe,#0d,#50,#05,#ff
	db #32,#01,#06,#00,#04,#0c,#0c,#0c
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#42,#00,#00
	db #00,#00,#00,#0f,#04,#01,#ff,#0d
	db #28,#02,#ff,#14,#01,#06,#00,#01
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #42,#00,#00,#00,#00,#00,#0f,#03
	db #01,#ff,#09,#37,#04,#ff,#07,#01
	db #06,#00,#01,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#42,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0f,#0a,#00,#ff
	db #0c,#0a,#02,#ff,#ff,#00,#00,#00
	db #03,#04,#07,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#42,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#0f,#08,#00,#00,#0f,#00
	db #00,#fc,#ff,#00,#00,#0d,#0c,#32
	db #0e,#0a,#08,#07,#06,#05,#04,#03
	db #02,#01,#00,#00,#00,#00,#00,#42
	db #00,#00,#00,#00,#00,#0f,#08,#00
	db #00,#0f,#00,#00,#fb,#ff,#00,#00
	db #03,#04,#24,#18,#12,#0c,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#42,#00,#00,#00,#00
.l4396
	dw l457e,l4677,l474f,l460b
	dw l4727,l47df,l4618,l472f
	dw l47e7,l4623,l4735,l47ed
	dw l464e,l4735,l47ed,l44a2
	dw l44a2,l44ab,l44bb,l44c4
	dw l44c8,l44e1,l44ec,l44f0
	dw l4513,l451c,l4522,l453b
	dw l4546,l454a,l455e,l4567
	dw l456b
.l43d8
	dw l480f,l4812,l4825,l4835
	dw l484e,l4859,l4862,l486d
	dw l4885,l488e,l48ab,l48c0
	dw l48df,l4905,l4914,l492a
	dw l4940,l494b,l4953,l4953
	dw l495c,l496b,l4970,l4979
	dw l4988,l49b9,l49c8,l49d3
	dw l49ea,l4a03,l4a16,l4a29
	dw l4a3d,l4a5d,l4a92,l4aa3
	dw l4ad0,l4aea,l4b00,l4b0d
	dw l4b2a,l4b45,l4b62,l4b71
	dw l4b89,l4b91,l4bae,l4bb6
	dw l4bb6,l4bc9,l4bdc,l4be8
	dw l4bf9,l4c0a,l4c0f,l4c40
	dw l4c51,l4c5a,l4c73,l4c85
	dw l4c96,l4c9f,l4ca4,l4cab
	dw l4cb6,l4cbf,l4cca,l4cd3
	dw l4cde,l4ce5,l4cee,l4cfe
	dw l4d19,l4d34,l4d48,l4d5f
	dw l4d64,l4d69,l4d6e,l4d73
	dw l4d78,l4d7d,l4d84,l4d8b
	dw l4d94,l44af,l44b6,l44cc
	dw l44d1,l44d6,l44f4,l4503
	dw l4526,l4531,l4538,l454e
	dw l4553,l456f,l4576,l457e
.l44a2 equ $ + 2
	db #00,#ff,#fc,#00,#fb,#00,#f7,#00
.l44af equ $ + 7
.l44ab equ $ + 3
	db #55,#01,#ff,#56,#01,#00,#01,#61
.l44b6 equ $ + 6
	db #03,#3d,#01,#19,#02,#fe,#61,#0c
.l44bb equ $ + 3
	db #19,#04,#fe,#fc,#00,#fb,#00,#f7
.l44c4 equ $ + 4
	db #00,#57,#01,#ff,#58,#01,#00,#01
.l44cc equ $ + 4
.l44c8
	db #59,#01,#00,#01,#61,#07,#3d,#20
.l44d6 equ $ + 6
.l44d1 equ $ + 1
	db #fe,#61,#07,#42,#20,#fe,#61,#07
	db #31,#02,#3d,#02,#42,#02,#48,#10
.l44e1 equ $ + 1
	db #fe,#fc,#00,#fb,#00,#f7,#00,#f8
.l44ec equ $ + 4
	db #0a,#5b,#01,#ff,#5a,#01,#00,#0a
.l44f4 equ $ + 4
.l44f0
	db #5b,#01,#00,#0a,#61,#0b,#19,#10
	db #fa,#00,#0a,#19,#10,#60,#10,#fa
.l4503 equ $ + 3
	db #00,#00,#fe,#61,#0b,#fa,#00,#fe
	db #31,#01,#31,#20,#60,#20,#60,#20
.l4513 equ $ + 3
	db #61,#00,#fe,#fc,#00,#fb,#00,#f7
.l451c equ $ + 4
	db #00,#5c,#01,#ff,#fa,#07,#5c,#01
.l4526 equ $ + 6
.l4522 equ $ + 2
	db #00,#0a,#5d,#01,#00,#0a,#61,#07
	db #25,#02,#2a,#02,#27,#06,#60,#10
.l4531 equ $ + 1
	db #fe,#61,#07,#25,#04,#2c,#0a,#fe
.l453b equ $ + 3
.l4538
	db #60,#20,#fe,#fc,#00,#fb,#00,#f7
.l4546 equ $ + 6
	db #00,#fa,#06,#5f,#01,#ff,#5f,#01
.l454e equ $ + 6
.l454a equ $ + 2
	db #00,#01,#60,#01,#00,#01,#61,#0c
.l4553 equ $ + 3
	db #19,#04,#fe,#61,#02,#fa,#00,#32
.l455e equ $ + 6
	db #19,#04,#fa,#00,#00,#fe,#fc,#00
.l4567 equ $ + 7
	db #fb,#00,#f7,#00,#61,#01,#ff,#62
.l456f equ $ + 7
.l456b equ $ + 3
	db #01,#00,#0a,#61,#01,#00,#01,#61
.l4576 equ $ + 6
	db #04,#0d,#04,#0d,#20,#fe,#61,#02
.l457e equ $ + 6
	db #fa,#00,#ff,#55,#01,#fe,#fc,#00
	db #fb,#24,#f7,#00,#00,#03,#0f,#01
	db #05,#01,#06,#01,#11,#01,#0f,#01
	db #05,#01,#06,#01,#07,#01,#0c,#01
	db #05,#01,#06,#01,#08,#01,#0d,#01
	db #13,#01,#14,#01,#15,#01,#16,#01
	db #13,#01,#14,#01,#fa,#ff,#1c,#01
	db #1d,#01,#1e,#01,#1f,#01,#20,#01
	db #1d,#01,#1e,#01,#24,#01,#2d,#01
	db #25,#01,#26,#01,#25,#01,#2a,#01
	db #28,#03,#29,#01,#28,#03,#29,#01
	db #fa,#0d,#f7,#0c,#18,#01,#18,#02
	db #21,#01,#18,#03,#21,#01,#f7,#0c
	db #18,#03,#21,#01,#fa,#f4,#f7,#00
	db #23,#01,#f7,#00,#fa,#0c,#18,#01
	db #18,#02,#21,#01,#18,#03,#21,#01
	db #fa,#f4,#f7,#00,#05,#01,#06,#01
	db #00,#01,#2e,#01,#30,#01,#31,#01
.l460b equ $ + 3
	db #32,#01,#fd,#fc,#00,#fb,#24,#f7
	db #00,#39,#01,#3a,#01,#00,#01,#ff
.l4618
	db #fc,#00,#fb,#24,#f7,#00,#47,#01
.l4623 equ $ + 3
	db #00,#01,#ff,#fc,#00,#fb,#24,#f7
	db #00,#3d,#01,#fa,#01,#3d,#01,#fa
	db #02,#3d,#01,#fa,#02,#3d,#01,#fa
	db #02,#3d,#01,#fa,#01,#3d,#01,#fa
	db #fe,#3d,#01,#fa,#ff,#3d,#01,#fa
.l464e equ $ + 6
	db #fb,#46,#01,#00,#01,#ff,#fc,#00
	db #fb,#24,#f7,#00,#3d,#01,#fa,#01
	db #3d,#01,#fa,#02,#3d,#01,#fa,#02
	db #3d,#01,#fa,#02,#3d,#01,#fa,#01
	db #3d,#01,#fa,#fe,#3d,#01,#fa,#ff
.l4677 equ $ + 7
	db #3d,#01,#fa,#fb,#46,#01,#fd,#f7
	db #00,#fa,#fb,#02,#02,#01,#01,#03
	db #01,#02,#02,#01,#01,#03,#01,#02
	db #02,#01,#01,#03,#01,#02,#02,#fa
	db #02,#0a,#01,#0b,#01,#fa,#03,#0a
	db #01,#0b,#01,#fa,#fb,#0a,#01,#0b
	db #01,#fa,#05,#0a,#01,#0b,#01,#fa
	db #ff,#1a,#01,#f7,#0d,#18,#01,#18
	db #01,#fa,#05,#18,#01,#21,#01,#fa
	db #fb,#18,#02,#fa,#f9,#18,#01,#fa
	db #08,#f7,#00,#23,#01,#fa,#ff,#f7
	db #0d,#18,#01,#18,#01,#fa,#05,#18
	db #01,#21,#01,#fa,#fb,#18,#02,#fa
	db #05,#18,#01,#21,#01,#fa,#fb,#18
	db #02,#fa,#05,#18,#01,#21,#01,#fa
	db #fc,#f7,#00,#00,#01,#00,#02,#23
	db #01,#05,#01,#00,#01,#06,#01,#2b
	db #01,#0c,#01,#05,#01,#06,#01,#2c
	db #01,#00,#01,#fa,#05,#05,#01,#06
	db #01,#fa,#f4,#11,#01,#0f,#01,#05
	db #01,#06,#01,#07,#01,#0c,#01,#fa
	db #07,#23,#04,#f7,#0c,#33,#01,#34
.l4727 equ $ + 7
	db #01,#35,#01,#f7,#00,#00,#ff,#f7
.l472f equ $ + 7
	db #10,#37,#01,#38,#01,#00,#ff,#f7
.l4735 equ $ + 5
	db #00,#48,#01,#00,#ff,#f7,#00,#fa
	db #f4,#3e,#01,#3f,#01,#40,#01,#41
	db #01,#42,#01,#45,#01,#44,#01,#43
.l474f equ $ + 7
	db #01,#fa,#0c,#43,#01,#00,#a9,#f7
	db #00,#00,#02,#04,#0c,#fa,#0a,#09
	db #02,#fa,#02,#f7,#07,#09,#01,#09
	db #01,#fa,#fb,#f7,#01,#09,#01,#09
	db #01,#fa,#05,#f7,#07,#09,#01,#09
	db #01,#fa,#f3,#f7,#00,#1b,#01,#fa
	db #fb,#17,#01,#19,#01,#fa,#05,#17
	db #01,#22,#01,#fa,#fb,#17,#01,#19
	db #01,#fa,#05,#17,#01,#22,#01,#fa
	db #fb,#17,#01,#19,#01,#fa,#05,#17
	db #01,#22,#01,#fa,#fb,#17,#01,#19
	db #01,#fa,#05,#17,#01,#22,#01,#fa
	db #fb,#17,#01,#19,#01,#fa,#05,#17
	db #01,#22,#01,#fa,#01,#02,#02,#01
	db #01,#03,#01,#02,#02,#01,#01,#03
	db #01,#02,#02,#01,#01,#03,#01,#04
	db #01,#02,#02,#01,#01,#03,#01,#02
	db #02,#01,#01,#02,#01,#01,#03,#04
.l47df equ $ + 7
	db #01,#36,#02,#00,#01,#00,#ff,#f7
.l47e7 equ $ + 7
	db #00,#3b,#01,#3c,#01,#00,#ff,#f7
.l47ed equ $ + 5
	db #00,#4a,#01,#00,#ff,#f7,#00,#50
	db #01,#fa,#fe,#50,#01,#fa,#fe,#50
	db #01,#fa,#04,#51,#01,#50,#01,#fa
	db #f9,#52,#01,#fa,#01,#50,#01,#fa
.l480f equ $ + 7
	db #ff,#53,#01,#fa,#07,#00,#aa,#60
.l4812 equ $ + 2
	db #20,#fe,#61,#07,#25,#04,#2f,#02
	db #31,#06,#23,#06,#2f,#02,#20,#08
.l4825 equ $ + 5
	db #28,#02,#27,#02,#fe,#61,#07,#25
	db #04,#2f,#02,#31,#06,#23,#0b,#61
.l4835 equ $ + 5
	db #00,#62,#60,#09,#fe,#61,#07,#25
	db #04,#2f,#02,#31,#06,#2f,#04,#2a
	db #02,#2c,#02,#2f,#02,#31,#04,#37
.l484e equ $ + 6
	db #02,#36,#02,#34,#02,#fe,#61,#0c
	db #25,#08,#25,#08,#25,#08,#25,#08
.l4859 equ $ + 1
	db #fe,#61,#05,#49,#02,#4b,#02,#4c
.l4862 equ $ + 2
	db #1c,#fe,#61,#05,#60,#1c,#61,#05
.l486d equ $ + 5
	db #4b,#02,#49,#02,#fe,#61,#01,#62
	db #60,#04,#46,#12,#61,#05,#44,#02
	db #61,#0a,#47,#02,#61,#05,#44,#02
.l4885 equ $ + 5
	db #61,#0a,#4c,#04,#fe,#61,#00,#60
.l488e equ $ + 6
	db #04,#61,#05,#44,#1c,#fe,#61,#8c
	db #25,#04,#61,#02,#49,#04,#49,#02
	db #49,#04,#49,#02,#61,#8c,#25,#02
	db #61,#02,#49,#02,#49,#04,#49,#06
.l48ab equ $ + 3
	db #49,#02,#fe,#61,#07,#25,#04,#2f
	db #02,#31,#02,#61,#86,#25,#10,#25
	db #04,#61,#07,#2c,#02,#2a,#02,#fe
.l48c0
	db #61,#07,#25,#04,#2f,#02,#31,#02
	db #61,#86,#25,#04,#61,#07,#25,#08
	db #2c,#04,#61,#86,#25,#02,#61,#07
.l48df equ $ + 7
	db #2f,#02,#31,#02,#34,#02,#fe,#61
	db #05,#49,#02,#61,#0a,#49,#02,#62
	db #60,#06,#61,#05,#4c,#02,#61,#0a
	db #4e,#04,#61,#05,#4c,#02,#61,#0a
	db #4e,#04,#61,#05,#4c,#02,#4e,#04
.l4905 equ $ + 5
	db #4c,#02,#49,#02,#fe,#61,#00,#60
	db #04,#61,#05,#42,#04,#44,#04,#47
.l4914 equ $ + 4
	db #10,#49,#04,#fe,#61,#05,#49,#02
	db #61,#00,#62,#60,#02,#61,#01,#46
	db #06,#44,#06,#61,#08,#42,#06,#40
.l492a equ $ + 2
	db #0a,#fe,#61,#00,#60,#04,#61,#01
	db #46,#06,#44,#06,#61,#08,#42,#06
	db #40,#02,#61,#00,#62,#60,#08,#fe
.l4940
	db #61,#00,#60,#1a,#61,#06,#25,#04
.l494b equ $ + 3
	db #25,#02,#fe,#61,#01,#62,#60,#04
.l4953 equ $ + 3
	db #46,#1c,#fe,#61,#05,#40,#0c,#42
.l495c equ $ + 4
	db #0c,#44,#08,#fe,#61,#00,#60,#04
	db #61,#05,#47,#0c,#4b,#06,#4c,#06
.l496b equ $ + 3
	db #4b,#04,#fe,#61,#05,#49,#20,#fe
.l4970
	db #61,#00,#60,#18,#61,#05,#47,#08
.l4979 equ $ + 1
	db #fe,#61,#07,#25,#06,#23,#06,#25
	db #08,#28,#04,#27,#04,#23,#04,#fe
.l4988
	db #61,#8c,#25,#04,#61,#01,#3d,#02
	db #61,#8c,#25,#02,#61,#86,#25,#04
	db #61,#8c,#25,#02,#61,#01,#3d,#02
	db #3d,#02,#61,#8c,#25,#02,#25,#02
	db #61,#01,#3d,#02,#61,#86,#25,#04
	db #61,#01,#3d,#02,#61,#86,#25,#02
.l49b9 equ $ + 1
	db #fe,#61,#07,#25,#06,#23,#06,#25
	db #08,#20,#04,#23,#04,#25,#04,#fe
.l49c8
	db #61,#07,#25,#06,#27,#0a,#28,#06
.l49d3 equ $ + 3
	db #29,#0a,#fe,#61,#03,#3d,#06,#61
	db #01,#3f,#0a,#61,#03,#40,#08,#61
	db #86,#25,#02,#25,#02,#25,#02,#25
.l49ea equ $ + 2
	db #02,#fe,#61,#05,#49,#06,#47,#06
	db #61,#0a,#47,#04,#61,#05,#44,#06
	db #42,#03,#61,#0a,#42,#03,#61,#05
.l4a03 equ $ + 3
	db #40,#04,#fe,#61,#05,#42,#08,#61
	db #0a,#42,#04,#61,#05,#40,#02,#42
.l4a16 equ $ + 6
	db #06,#3d,#08,#40,#04,#fe,#61,#05
	db #49,#08,#61,#0a,#49,#04,#61,#05
	db #47,#02,#49,#06,#4c,#08,#4e,#04
.l4a29 equ $ + 1
	db #fe,#61,#05,#4c,#08,#61,#0a,#4b
	db #04,#61,#05,#47,#02,#44,#02,#61
.l4a3d equ $ + 5
	db #00,#62,#60,#10,#fe,#61,#05,#49
	db #08,#61,#0a,#47,#04,#61,#05,#44
	db #02,#40,#02,#61,#00,#62,#60,#06
	db #61,#05,#4c,#02,#61,#0a,#4b,#04
.l4a5d equ $ + 5
	db #61,#05,#49,#04,#fe,#61,#8c,#25
	db #02,#25,#02,#61,#01,#3d,#02,#61
	db #8c,#25,#02,#61,#86,#25,#04,#61
	db #8c,#25,#02,#61,#01,#3d,#02,#3d
	db #02,#61,#8c,#25,#02,#25,#02,#61
	db #01,#3d,#02,#61,#86,#25,#02,#25
	db #02,#61,#01,#3d,#02,#61,#86,#25
.l4a92 equ $ + 2
	db #02,#fe,#61,#07,#25,#06,#23,#06
	db #25,#06,#25,#02,#27,#04,#28,#04
.l4aa3 equ $ + 3
	db #29,#04,#fe,#61,#0c,#25,#02,#fd
	db #02,#fd,#01,#fd,#01,#fd,#02,#61
	db #06,#25,#02,#fd,#02,#fd,#02,#fd
	db #02,#61,#0c,#25,#02,#fd,#01,#fd
	db #01,#fd,#02,#fd,#02,#61,#06,#25
	db #02,#fd,#02,#fd,#02,#25,#02,#fe
.l4ad0
	db #61,#05,#4c,#08,#61,#0a,#49,#04
	db #61,#05,#4b,#02,#4c,#02,#61,#00
	db #62,#60,#0c,#61,#05,#44,#02,#47
.l4aea equ $ + 2
	db #02,#fe,#61,#05,#4c,#06,#4e,#06
	db #61,#0a,#49,#04,#61,#00,#62,#60
	db #08,#61,#05,#47,#04,#49,#04,#fe
.l4b00
	db #61,#05,#4c,#06,#4e,#06,#49,#0c
.l4b0d equ $ + 5
	db #50,#04,#4e,#04,#fe,#61,#05,#4c
	db #02,#4b,#02,#49,#04,#44,#02,#42
	db #02,#40,#04,#42,#02,#40,#02,#42
	db #04,#3f,#02,#40,#02,#3f,#02,#3d
.l4b2a equ $ + 2
	db #02,#fe,#61,#0a,#50,#04,#61,#05
	db #4e,#04,#4c,#04,#49,#02,#61,#0a
	db #50,#06,#61,#05,#4e,#02,#4c,#06
.l4b45 equ $ + 5
	db #49,#02,#4c,#02,#fe,#61,#0a,#50
	db #04,#61,#05,#4e,#04,#4c,#04,#49
	db #02,#61,#0a,#50,#06,#61,#05,#50
	db #04,#61,#0a,#53,#04,#61,#05,#55
.l4b62 equ $ + 2
	db #04,#fe,#61,#05,#60,#14,#44,#04
	db #47,#02,#49,#02,#4c,#02,#4e,#02
.l4b71 equ $ + 1
	db #fe,#61,#01,#62,#60,#04,#44,#12
	db #61,#05,#44,#02,#61,#0a,#47,#02
	db #61,#05,#44,#02,#61,#0a,#4c,#04
.l4b89 equ $ + 1
	db #fe,#61,#01,#62,#60,#04,#44,#1c
.l4b91 equ $ + 1
	db #fe,#61,#05,#49,#06,#47,#06,#61
	db #0a,#42,#04,#61,#05,#44,#04,#42
	db #04,#61,#0a,#40,#02,#61,#05,#3d
.l4bae equ $ + 6
	db #02,#3b,#02,#38,#02,#fe,#61,#00
.l4bb6 equ $ + 6
	db #60,#1c,#62,#60,#04,#fe,#61,#07
	db #25,#06,#31,#04,#25,#02,#31,#04
	db #27,#06,#33,#04,#27,#02,#33,#04
.l4bc9 equ $ + 1
	db #fe,#61,#07,#28,#06,#34,#04,#28
	db #02,#34,#04,#2a,#06,#36,#04,#2a
.l4bdc equ $ + 4
	db #02,#36,#04,#fe,#61,#07,#38,#0c
	db #2c,#10,#61,#00,#62,#60,#04,#fe
.l4be8
	db #61,#03,#49,#06,#49,#06,#49,#04
	db #4b,#04,#4b,#02,#4b,#06,#4b,#04
.l4bf9 equ $ + 1
	db #fe,#61,#03,#4c,#06,#4c,#06,#4c
	db #04,#4e,#02,#4e,#04,#4e,#06,#4e
.l4c0f equ $ + 7
.l4c0a equ $ + 2
	db #04,#fe,#61,#03,#50,#20,#fe,#61
	db #8c,#25,#04,#61,#0d,#25,#02,#61
	db #8c,#25,#02,#61,#86,#25,#04,#61
	db #8c,#25,#02,#61,#0d,#25,#02,#25
	db #02,#61,#8c,#25,#02,#25,#02,#61
	db #0d,#25,#02,#61,#86,#25,#04,#61
	db #0d,#25,#02,#61,#86,#25,#02,#fe
.l4c40
	db #61,#00,#49,#04,#4c,#08,#4e,#04
	db #4f,#04,#4e,#04,#4c,#04,#49,#04
.l4c51 equ $ + 1
	db #fe,#61,#00,#44,#04,#47,#04,#49
.l4c5a equ $ + 2
	db #18,#fe,#61,#00,#60,#04,#25,#08
	db #61,#06,#25,#04,#61,#00,#23,#04
	db #61,#06,#25,#04,#61,#00,#21,#04
.l4c73 equ $ + 3
	db #20,#04,#fe,#61,#00,#60,#04,#23
	db #04,#25,#08,#61,#11,#25,#0c,#61
.l4c85 equ $ + 5
	db #00,#62,#60,#04,#fe,#61,#00,#60
	db #04,#61,#09,#3d,#0c,#61,#08,#3b
.l4c96 equ $ + 6
	db #0c,#61,#09,#38,#04,#fe,#60,#08
.l4c9f equ $ + 7
	db #61,#09,#3d,#08,#31,#10,#fe,#61
.l4ca4 equ $ + 4
	db #12,#2a,#20,#fe,#61,#13,#46,#18
.l4cab equ $ + 3
	db #47,#08,#fe,#61,#13,#49,#08,#44
.l4cb6 equ $ + 6
	db #04,#49,#0c,#50,#08,#fe,#61,#13
.l4cbf equ $ + 7
	db #4e,#0c,#4d,#0c,#4b,#08,#fe,#61
	db #13,#49,#08,#4b,#04,#4d,#0c,#50
.l4cca equ $ + 2
	db #08,#fe,#61,#13,#4e,#0c,#4d,#0c
.l4cd3 equ $ + 3
	db #4b,#08,#fe,#61,#13,#49,#08,#44
.l4cde equ $ + 6
	db #08,#41,#08,#3d,#08,#fe,#61,#13
.l4ce5 equ $ + 5
	db #50,#10,#4b,#10,#fe,#61,#13,#4e
.l4cee equ $ + 6
	db #0c,#4d,#0c,#49,#08,#fe,#61,#00
	db #60,#04,#62,#60,#04,#61,#12,#31
.l4cfe equ $ + 6
	db #08,#2e,#08,#2c,#08,#fe,#61,#16
	db #4c,#04,#fc,#04,#fc,#03,#fc,#03
	db #fc,#03,#fc,#03,#fc,#02,#fc,#02
	db #4e,#02,#fc,#02,#fc,#02,#fc,#02
.l4d19 equ $ + 1
	db #fe,#61,#00,#28,#04,#28,#04,#28
	db #03,#28,#03,#28,#03,#28,#03,#28
	db #02,#28,#02,#2a,#02,#2a,#02,#2c
.l4d34 equ $ + 4
	db #02,#2a,#02,#fe,#61,#05,#49,#02
	db #4b,#02,#4c,#10,#4b,#02,#4c,#02
	db #4e,#04,#61,#00,#62,#60,#04,#fe
.l4d48
	db #61,#0c,#25,#08,#61,#06,#25,#0c
	db #61,#0c,#25,#04,#61,#06,#25,#02
.l4d5f equ $ + 7
	db #25,#02,#25,#02,#25,#02,#fe,#61
.l4d64 equ $ + 4
	db #00,#60,#20,#fe,#61,#00,#60,#20
.l4d6e equ $ + 6
.l4d69 equ $ + 1
	db #fe,#61,#00,#60,#20,#fe,#61,#00
.l4d73 equ $ + 3
	db #60,#20,#fe,#61,#00,#60,#20,#fe
.l4d7d equ $ + 5
.l4d78
	db #61,#14,#42,#20,#fe,#61,#14,#41
.l4d84 equ $ + 4
	db #10,#3d,#10,#fe,#61,#14,#42,#14
.l4d8b equ $ + 3
	db #3f,#0c,#fe,#61,#14,#42,#04,#44
.l4d94 equ $ + 4
	db #04,#46,#18,#fe,#61,#0c,#3d,#0c
	db #fe
.l4d9b equ $ + 2
.l4d9a equ $ + 1
.l4d99
	db #00,#00,#00,#00,#00,#00
.l4da6 equ $ + 7
	db #00,#00,#30,#30,#30,#30,#00,#0f
.l4dac equ $ + 5
.l4daa equ $ + 3
.l4da9 equ $ + 2
.l4da8 equ $ + 1
.l4da7
	db #00,#00,#00,#00,#00
	ld a,(l4da8)
	and a
	ld b,a
	ret z
	ld a,(l4daa)
	cp #80
	jp z,l4dd5
	ld a,(l4da9)
	dec a
	ld (l4da9),a
	ret nz
	ld a,(l4daa)
	ld (l4da9),a
	ld a,(l4da6)
	add b
	bit 4,a
	jp nz,l4de4
	ld (l4da6),a
	ret
.l4dd5
	ld a,b
	cp #01
	ld a,#0f
	jp z,l4dde
	xor a
.l4dde
	ld (l4da6),a
	jp l4de4
.l4de4
	xor a
	ld (l4da8),a
	ld a,(l4da7)
	and a
	jp nz,#4f9a
	ret
	ld a,#00
	ld (l4da6),a
	ld a,#01
.l4df7
	ld (l4da8),a
	inc hl
	ld a,(hl)
	ld (l4daa),a
	ld (l4da9),a
	inc hl
	ret
	ld a,#0f
	ld (l4da6),a
	ld a,#ff
	jp l4df7
.l4e0e
	db &f8
.l4e0f
	ld a,h
	push af
	ld c,l
	cp #07
	jp nz,l4e26
	ld a,(l4e0e)
	cp c
	jp z,l4e41
	ld a,c
	ld (l4e0e),a
	res 7,c
	res 6,c
.l4e26
	ld a,#c0
	ld b,#f6
	out (c),a
	ld b,#f4
	pop af
	out (c),a
	ld b,#f6
	ld a,#80
	out (c),a
	ld b,#f4
	out (c),c
	xor a
	ld b,#f6
	out (c),a
	ret
.l4e41
	pop af
	ret
.l4e44 equ $ + 1
.l4e43
	db #00,#01,#00,#00
.l4e4e equ $ + 7
.l4e4d equ $ + 6
.l4e4c equ $ + 5
.l4e4b equ $ + 4
.l4e4a equ $ + 3
.l4e49 equ $ + 2
	db #00,#00,#00,#f8,#0f,#0f,#0f,#00
.l4e50 equ $ + 1
	db #00,#00,#00,#00,#0c,#05,#00,#08
	db #01,#ff,#00,#00,#00,#01,#08,#00
	db #00,#04,#00,#00,#00,#00,#00,#f7
	db #14,#0a,#01,#00,#00,#08,#04,#00
	db #00,#01,#00,#00,#00,#0a,#00,#02
.l4e7e equ $ + 7
.l4e7b equ $ + 4
	db #00,#fe,#00,#00,#00,#00,#00,#00
.l4e80 equ $ + 1
	db #00,#00,#00,#00,#0f,#01,#01,#02
	db #01,#ff,#00,#00,#02,#03,#09,#00
	db #00,#01,#00,#00,#00,#00,#00,#ef
	db #ff,#ff,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4eae equ $ + 7
.l4eab equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4eb0 equ $ + 1
	db #00,#00,#00,#00,#0f,#0a,#01,#02
	db #02,#ff,#00,#00,#04,#05,#0a,#00
	db #00,#00,#01,#00,#00,#00,#00,#00
	db #df,#ff,#ff,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4edb equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00
.l4ee3
	ld a,#0f
	ld (l4da6),a
	xor a
	ld (l4da8),a
	ld (l4da7),a
	call l4fa2
	ld a,(l4d9a)
	cp #ff
	jp nz,l4efe
	inc a
	ld (l4d9a),a
.l4efe
	ld a,#01
	ld (l4e50),a
	ld (l4e80),a
	ld (l4eb0),a
	xor a
	ld (l4d99),a
	push ix
	ld ix,l4e4e
	ld a,(l4d9a)
	add a
	ld b,a
	add a
	add b
	ld l,a
	ld h,#00
	ld de,l4396
	add hl,de
	ld (l4f2f),hl
	inc hl
	inc hl
	ld (l4f39),hl
	inc hl
	inc hl
	ld (l4f43),hl
.l4f2f equ $ + 1
	ld hl,(#0000)
	call l4f68
	ld ix,l4e7e
.l4f39 equ $ + 1
	ld hl,(#0000)
	call l4f68
	ld ix,l4eae
.l4f43 equ $ + 1
	ld hl,(#0000)
	call l4f68
	ld a,#01
	ld (l4007),a
	ld h,#07
	ld l,#f8
	call l4e0f
	ld a,(l4d9a)
	cp #01
	pop ix
	ret
.l4f5c
	halt                    ; test player
	call l4fce
	ld a,(l4007)
	and a
	jp nz,l4f5c
	ret
.l4f68
	ld (ix+#20),l
	ld (ix+#23),l
	ld (ix+#00),l
	ld (ix+#21),h
	ld (ix+#24),h
	ld (ix+#01),h
	call l54f0
	ld (ix+#02),#01
	ld (ix+#0c),#00
	ld (ix+#05),#00
	ld (ix+#04),#00
	ld (ix+#17),#00
	ld (ix+#2b),#00
	ld (ix+#2f),#00
	ret
;
.stop_music
.l4f9a
;
	call l4fa2
	xor a
	ld (l4007),a
	ret
.l4fa2
	ld h,#07
	ld l,#ff
	call l4e0f
	ld hl,l4e43
	ld de,l4e44
	ld bc,#000a
	ld (hl),#00
	ldir
	ld a,#ff
	ld (l4e4a),a
.l4fbb
	ld b,#0b
	ld h,#00
	ld de,l4e43
.l4fc2
	ld a,(de)
	ld l,a
	push bc
	call l4e0f
	pop bc
	inc h
	inc de
	djnz l4fc2
	ret
;
.play_music
.l4fce
;
	ld a,(l4006)
	and a
	jp z,l5006
	ld b,a
	xor a
	ld (l4006),a
	ld a,b
	cp #ff
	jp z,l4f9a
	cp #fe
	jp nz,l4fff
	ld b,#0a
	ld a,#01
	ld (l4da7),a
	call l4ff2
	jp l5006
.l4ff2
	ld a,#ff
	ld (l4da8),a
	ld a,b
	ld (l4daa),a
	ld (l4da9),a
	ret
.l4fff
	dec a
	ld (l4d9a),a
	jp l4ee3
.l5006
	call l4dac
	ld a,(l4007)
	and a
	jr z,l5068
	push ix
	ld ix,l4e4e
	bit 7,(ix+#0c)
	call z,l5069
	ld ix,l4e7e
	bit 7,(ix+#0c)
	call z,l5069
	ld ix,l4eae
	bit 7,(ix+#0c)
	call z,l5069
	ld a,(l4da6)
	cpl
	and #0f
	ld b,a
	ld a,(l4d99)
	and a
	ld a,#10
	jp nz,l504a
	ld a,(l4e4b)
	sub b
	jp nc,l504a
	xor a
.l504a
	ld (l4e4b),a
	ld a,(l4e4c)
	sub b
	jp nc,l5055
	xor a
.l5055
	ld (l4e4c),a
	ld a,(l4e4d)
	sub b
	jp nc,l5060
	xor a
.l5060
	ld (l4e4d),a
	call l4fbb
	pop ix
.l5068
	ret
.l5069
	ld a,(ix+#02)
	dec (ix+#02)
	jp z,l5210
.l5072
	ld a,(ix+#0c)
	and #03
	jp z,l5132
	cp #01
	jp z,l508c
	cp #02
	jp z,l50cc
	cp #03
	jp z,l5116
	jp l5163
.l508c
	ld a,(ix+#0b)
	and a
	jr z,l5098
	dec (ix+#0b)
	jp l5163
.l5098
	ld a,(ix+#04)
	ld b,(ix+#08)
	add b
	ld (ix+#04),a
	ld b,(ix+#05)
	cp b
	jr z,l50b9
	jr nc,l50b3
	ld a,(ix+#07)
	ld (ix+#0b),a
	jp l5163
.l50b3
	ld a,(ix+#05)
	ld (ix+#04),a
.l50b9
	ld a,(ix+#0c)
	and #fc
	or #02
	ld (ix+#0c),a
	ld a,(ix+#09)
	ld (ix+#25),a
	jp l5163
.l50cc
	ld a,(ix+#25)
	and a
	jr z,l50d8
	dec (ix+#25)
	jp l5163
.l50d8
	ld a,(ix+#04)
	ld b,(ix+#0a)
	add b
	ld (ix+#04),a
	bit 7,a
	jp nz,l50f7
	ld b,(ix+#26)
	cp b
	jr z,l5104
	jr c,l50fe
	ld a,(ix+#09)
	ld (ix+#25),a
	jr l5163
.l50f7
	ld (ix+#04),#00
	jp l5104
.l50fe
	ld a,(ix+#26)
	ld (ix+#04),a
.l5104
	ld a,(ix+#0c)
	and #fc
	or #03
	ld (ix+#0c),a
	ld a,(ix+#06)
	ld (ix+#27),a
	jr l5163
.l5116
	ld a,(ix+#27)
	and a
	jr z,l5121
	dec (ix+#27)
	jr l5163
.l5121
	ld a,(ix+#0c)
	and #fc
	ld (ix+#0c),a
	ld a,(ix+#2a)
	ld (ix+#29),a
	jp l5163
.l5132
	ld a,(ix+#29)
	and a
	jr z,l513d
	dec (ix+#29)
	jr l5163
.l513d
	ld a,(ix+#04)
	ld b,(ix+#28)
	add b
	ld (ix+#04),a
	bit 7,a
	jr nz,l5153
	ld a,(ix+#2a)
	ld (ix+#29),a
	jr l5163
.l5153
	ld (ix+#04),#00
	ld a,(ix+#0c)
	and #fc
	or #03
	ld (ix+#0c),a
	jr l5163
.l5163
	ld a,(ix+#04)
	ld hl,l4e43
	ld d,#00
	ld e,(ix+#0f)
	add hl,de
	ld (hl),a
	ld h,(ix+#14)
	ld l,(ix+#13)
	ld d,#00
	ld e,(ix+#10)
	add hl,de
	ld a,(ix+#03)
	push af
	ld a,(hl)
	add (ix+#03)
	ld (ix+#03),a
	call l52a7
	pop af
	ld (ix+#03),a
	inc (ix+#10)
	ld a,(ix+#12)
	xor (ix+#10)
	jr nz,l519f
	ld a,(ix+#11)
	ld (ix+#10),a
.l519f
	ld a,(ix+#1a)
	cp #ff
	jr z,l51e0
	and a
	jr z,l51ae
	dec (ix+#1a)
	jr nz,l51e0
.l51ae
	dec (ix+#1f)
	jr nz,l51c1
	ld a,(ix+#1e)
	ld (ix+#1f),a
	ld a,(ix+#2e)
	xor #01
	ld (ix+#2e),a
.l51c1
	ld b,#00
	ld c,(ix+#1b)
	ld h,(ix+#1d)
	ld l,(ix+#1c)
	bit 0,(ix+#2e)
	jr z,l51d5
	add hl,bc
	jr l51d7
.l51d5
	sbc hl,bc
.l51d7
	ld (ix+#1d),h
	ld (ix+#1c),l
	call l51fb
.l51e0
	ld a,(ix+#2b)
	call l51ee
	and a
	call nz,l51fb
	ld a,(ix+#02)
	ret
.l51ee
	ld l,a
	ld h,#00
	bit 7,a
	ret z
	ld d,h
	ld e,l
	sbc hl,de
	sbc hl,de
	ret
.l51fb
	ld b,h
	ld c,l
	ld hl,l4e43
	ld d,#00
	ld e,(ix+#0d)
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	add hl,bc
	ex de,hl
	ld (hl),d
	dec hl
	ld (hl),e
	ret
.l5210
	ld l,(ix+#00)
	ld h,(ix+#01)
.l5216
	ld a,(hl)
	cp #60
	jp z,l52a5
	cp #61
	jp z,l53a5
	cp #62
	jp z,l537f
	cp #64
	jp z,l532d
	cp #65
	jp z,l5371
	cp #fa
	jp z,l5344
	cp #fc
	jp z,l5314
	cp #fd
	jp z,l52f6
	cp #fe
	jp z,l5387
	cp #ff
	jp z,l5369
	ld b,a
.l524a
	ld a,(ix+#0c)
	and #fc
	or #01
	ld (ix+#0c),a
	ld (ix+#10),#00
	ld (ix+#04),#00
	ld a,b
	sub (ix+#2d)
	ld (ix+#03),a
	ld a,(ix+#19)
	ld (ix+#1a),a
	ld a,(ix+#1e)
	srl a
	ld (ix+#1f),a
	ld (ix+#1d),#00
	ld (ix+#1c),#00
.l5279
	inc hl
	ld a,(hl)
	dec a
	push hl
	ld h,#00
	ld l,a
	ld de,(l4d9b)
	add hl,de
	ld a,(hl)
	pop hl
	inc hl
	ld b,(ix+#2c)
	add b
	ld (ix+#2c),#00
	ld (ix+#02),a
	ld a,(ix+#07)
	ld (ix+#0b),a
	ld (ix+#00),l
	ld (ix+#01),h
	call l52a7
	jp l5072
.l52a5
	jr l5279
.l52a7
	ld a,(ix+#17)
	and a
	call nz,l52eb
	ld a,(ix+#03)
	inc a
	inc a
	add a
	ld d,#00
	ld e,a
	ld hl,l5559
	add hl,de
	push hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld hl,l4e43
	ld d,#00
	ld e,(ix+#0d)
	add hl,de
	ld (hl),c
	inc hl
	ld (hl),b
	pop hl
	ld a,(l4d99)
	and a
	ret z
	ld a,(ix+#0f)
	cp #08
	ret nz
	ld de,#00c0
	add hl,de
	ex de,hl
	ld h,#0b
	ld a,(de)
	ld l,a
	call l4e0f
	inc de
	inc h
	ld a,(de)
	ld l,a
	call l4e0f
	ret
.l52eb
	ld a,(ix+#03)
	neg
	and #1f
	ld (l4e49),a
	ret
.l52f6
	ld a,(ix+#05)
	and a
	jp z,l530a
	ld a,(ix+#26)
	and a
	jp z,l530a
	dec (ix+#05)
	dec (ix+#26)
.l530a
	ld a,(ix+#03)
	add (ix+#2d)
	ld b,a
	jp l524a
.l5314
	ld a,(ix+#05)
	cp #0f
	jp z,l530a
	ld a,(ix+#26)
	cp #0f
	jp z,l530a
	inc (ix+#05)
	inc (ix+#26)
	jp l530a
.l532d
	inc hl
	ld a,(hl)
	inc hl
	ld (l4e49),a
	jp l539c
.l5336
	inc hl
	ld a,(hl)
	inc hl
	ld b,a
	xor a
	ld (l4da7),a
	call l4ff2
	jp l54f6
.l5344
	inc hl
	ld (ix+#2e),#01
	ld a,(hl)
	ld (ix+#19),a
	inc hl
	ld a,(hl)
	bit 7,a
	jp z,l535a
	neg
	ld (ix+#2e),#00
.l535a
	ld (ix+#1b),a
	ld (ix+#1e),#ff
	ld (ix+#1f),#ff
	inc hl
	jp l539c
.l5369
	inc hl
	ld (ix+#04),#00
	jp l539c
.l5371
	inc hl
	ld a,(hl)
	inc hl
	push hl
	ld h,#0d
	ld l,a
	call l4e0f
	pop hl
	jp l539c
.l537f
	ld (ix+#04),#00
	inc hl
	jp l539c
.l5387
	ld a,(ix+#22)
	dec a
	ld (ix+#22),a
	jr nz,l5396
	jp l54e2
	jp l5216
.l5396
	ld l,(ix+#15)
	ld h,(ix+#16)
.l539c
	ld (ix+#01),h
	ld (ix+#00),l
	jp l5216
.l53a5
	inc hl
	ld a,(hl)
	bit 7,a
	jp nz,l53af
	add (ix+#2f)
.l53af
	and #7f
	inc hl
	push hl
	ld (ix+#00),l
	ld (ix+#01),h
	ld b,a
	add a
	ld h,#00
	ld l,a
	add hl,hl
	add hl,hl
	add hl,hl
	add hl,hl
	ld de,l4008
	add hl,de
	ld d,#00
	add b
	ld e,a
	add hl,de
	ld a,(hl)
	ld (ix+#07),a
	inc hl
	ld a,(hl)
	ld (ix+#05),a
	inc hl
	ld a,(hl)
	ld (ix+#08),a
	inc hl
	ld a,(hl)
	ld (ix+#09),a
	inc hl
	ld a,(hl)
	ld (ix+#0a),a
	inc hl
	ld a,(hl)
	ld (ix+#26),a
	inc hl
	ld a,(hl)
	ld (ix+#06),a
	inc hl
	ld a,(hl)
	ld (ix+#2a),a
	inc hl
	ld a,(hl)
	ld (ix+#28),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
	inc hl
	ld a,(hl)
	ld (ix+#1b),a
	inc hl
	ld a,(hl)
	ld (ix+#1e),a
	inc hl
	ld a,(hl)
	ld (ix+#11),a
	inc hl
	ld a,(hl)
	ld (ix+#12),a
	inc hl
	ld (ix+#14),h
	ld (ix+#13),l
	ld (ix+#10),#00
	ld de,#0010
	add hl,de
	ld a,(hl)
	ld (ix+#17),#00
	and a
	jp z,l545c
	and #12
	xor #12
	ld b,a
	ld c,#ed
	ld a,(ix+#0f)
	cp #08
	jp z,l5443
	cp #09
	jp z,l5447
	sla b
	rlc c
	jp l5447
.l5443
	srl b
	sra c
.l5447
	ld a,(l4e4a)
	and c
	or #c0
	or b
	ld (l4e4a),a
	ld a,(hl)
	bit 7,a
	jp z,l545c
	and #38
	ld (ix+#17),a
.l545c
	inc hl
	ld a,(ix+#0f)
	cp #08
	jp nz,l5478
	ld a,(hl)
	ld (l4d99),a
	and a
	jp z,l5478
	inc hl
	inc hl
	ld a,(hl)
	push hl
	ld h,#0d
	ld l,a
	call l4e0f
	pop hl
.l5478
	pop hl
	jp l5216
.l547c
	inc hl
	ld a,(hl)
	inc hl
	push hl
	add a
	add a
	add a
	ld h,#00
	ld l,a
	ld de,l56a9
	add hl,de
	ld (l4d9b),hl
	pop hl
	jp l54f6
.l5491
	inc hl
	ld a,(hl)
	inc hl
	ld (ix+#2f),a
	jp l54f6
.l549a
	inc hl
	ld a,(hl)
	inc hl
	ld (ix+#2c),a
	jp l54f6
.l54a3
	inc hl
	ld a,(hl)
	inc hl
	ld (ix+#2b),a
	jp l54f6
.l54ac
	inc hl
	ld a,(hl)
	sub #0c
	inc hl
	ld (l4e7b),a
	ld (l4eab),a
	ld (l4edb),a
	jp l54f6
.l54bd
	inc hl
	ld b,(hl)
	inc hl
	ld a,(ix+#2d)
	add b
	ld (ix+#2d),a
	jp l54f6
	ld (ix+#0c),#ff
	ld (ix+#03),#00
	ld (ix+#04),#00
	inc hl
	ld a,(hl)
	and a
	jp z,l5072
	call l4f9a
	jp l5072
.l54e2
	call l54f0
	jp l5210
.l54e8
	pop bc
	jp l4f9a
.l54ec
	pop bc
	jp l4ee3
.l54f0
	ld l,(ix+#20)
	ld h,(ix+#21)
.l54f6
	ld a,(hl)
	cp #f7
	jp z,l5491
	cp #f8
	jp z,l549a
	cp #f9
	jp z,l54a3
	cp #f6
	jp z,l5336
	cp #fa
	jp z,l54bd
	cp #fb
	jp z,l54ac
	cp #fc
	jp z,l547c
	cp #fd
	jp z,l54ec
	cp #fe
	jr z,l554d
	cp #ff
	jr z,l54e8
	push hl
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l43d8
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#00),e
	ld (ix+#01),d
	ld (ix+#15),e
	ld (ix+#16),d
	pop hl
	inc hl
	ld a,(hl)
	ld (ix+#22),a
	inc hl
	ld (ix+#20),l
	ld (ix+#21),h
	ret
.l554d
	ld l,(ix+#23)
	ld h,(ix+#24)
	jr l54f6
	db #00,#00,#00,#00
.l5559
	dw #0000,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04d4,#0470,#0431,#03f4
	dw #03dc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #6a,#00,#64,#00,#5e,#00,#5a,#00
	db #54,#00,#4f,#00,#4a,#00,#47,#00
	db #43,#00,#3f,#00,#3b,#00,#38,#00
	db #35,#00,#32,#00,#2f,#00,#2d,#00
	db #2a,#00,#28,#00,#25,#00,#23,#00
	db #21,#00,#20,#00,#1e,#00,#1c,#00
	db #1b,#00,#19,#00,#18,#00,#16,#00
	db #15,#00,#14,#00,#13,#00,#12,#00
	db #11,#00,#10,#00,#0f,#00,#0e,#00
	db #0d,#00,#0c,#00,#0b,#00,#0a,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l56a9
	db #03,#06,#09,#0c,#0f,#12,#15,#18
	db #1b,#1e,#21,#24,#27,#2a,#2d,#30
	db #33,#36,#39,#3c,#3f,#42,#45,#48
	db #4b,#4e,#51,#54,#57,#5a,#5d,#60
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00

;
.init_music     ; a = 0 -> 4
;
	ld (l4d9a),a
	jp l4ee3

; init &4000 (4ee3)
; play #4003 (4fce)

.game_name
	db "Hawk Storm",0
.game_year
	db "1990",0
.game_publisher
	db "Players",0
.music_author
	db "Sonic Graffiti",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"

